home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos2.d64 / btx con v1.3 (.txt) next >
Commodore BASIC  |  1995-08-05  |  3KB  |  131 lines
  1. 10 DIM Z$(255),K(23)
  2. 15 GOSUB655
  3. 20 GOSUB610
  4. 44 W=1
  5. 55 GOSUB610
  6. 60 OPEN1,8,15,"I:0":GOSUB635
  7. 65 GOTO80
  8. 70 CLOSE1
  9. 75 GOTO20
  10. 80 AT$="BTX"
  11. 100 GOSUB610
  12. 102 AZ=1010
  13. 120 :
  14. 125 REM
  15. 130 OPEN2,8,2,AT$+",R":GOSUB635
  16. 135 M$="TEXT-DUMMY"
  17. 140 PRINT#1,"S:";M$+"*"
  18. 145 OPEN3,8,3,M$+STR$(SZ+1)+",S,W":GOSUB635
  19. 150 :
  20. 155 REM
  21. 160 FORI=0TO23
  22. 165 PRINT#3,CHR$(K(I));
  23. 170 NEXTI
  24. 175 :
  25. 180 REM
  26. 185 P=0
  27. 190 GET#2,T$:IFT$=""THENT$=CHR$(0)
  28. 195 S=ST AND 64:T=ASC(T$)
  29. 200 IFT<161ORT>170THEN255
  30. 205 T1=T:T=69
  31. 210 IFT1=161THENT1=79:GOTO250
  32. 215 IFT1=165THENT1=65:GOTO250
  33. 220 IFT1=166THENT1=85:GOTO250
  34. 230 IFT1=168THENT1=207:GOTO250
  35. 235 IFT1=169THENT1=193:GOTO250
  36. 240 IFT1=170THENT1=170:GOTO250
  37. 245 IFT1=167THENT1=83:T=T1
  38. 250 PRINT#3,Z$(T1);
  39. 255 PRINT#3,Z$(T);
  40. 260 IFSTHEN270
  41. 265 P=P+1:IFP<AZTHEN190
  42. 270 PRINT#3,CHR$(0)
  43. 275 CLOSE3
  44. 280 X$=M$+STR$(SZ+1):GOSUB365
  45. 285 E$=C$:F$=D$
  46. 290 X$="DUMMY":GOSUB365
  47. 295 OPEN5,8,5,"#":GOSUB635
  48. 300 PRINT#1,"U1";5;0;ASC(C$);ASC(D$)
  49. 305 PRINT#1,"B-P";5;SZ*2+2
  50. 310 PRINT#5,E$;F$;
  51. 315 PRINT#1,"U2";5;0;ASC(C$);ASC(D$)
  52. 320 CLOSE5
  53. 325 SZ=SZ+1
  54. 330 GOSUB610
  55. 335 PRINT "ANZAHL SEITEN: ";SZ
  56. 340 IFSZ=63ANDS=0THENPRINT:PRINT" TEXT ZU LANG !":GOTO350
  57. 345 IFS=0THEN145
  58. 350 PRINT#1,"S:";M$;"*"
  59. 355 CLOSE1:CLOSE2:LOAD"RBOOT",8,1
  60. 360 END
  61. 365 REM
  62. 370 OPEN4,8,4,"#":GOSUB635
  63. 375 A$=CHR$(18):B$=CHR$(1)
  64. 380 A=ASC(A$):B=ASC(B$)
  65. 385 PRINT#1,"U1";4;0;A;B
  66. 390 GET#4,A$,B$
  67. 395 FORI=0TO7
  68. 400 K=0
  69. 405 PRINT#1,"B-P";4;I*32+3
  70. 410 GET#4,C$,D$
  71. 415 IFD$=""THEND$=CHR$(0)
  72. 420 FORJ=1TOLEN(X$)
  73. 425 GET#4,W$
  74. 430 IFW$=MID$(X$,J,1)THENK=K+1
  75. 435 NEXTJ
  76. 440 IFK=LEN(X$)THEN450
  77. 445 NEXTI:GOSUB635:GOTO380
  78. 450 CLOSE4
  79. 455 RETURN
  80. 610 PRINTCHR$(147)
  81. 615 PRINTTAB(9);"*** BTX-KONVERTER ***"
  82. 620 PRINT:PRINT
  83. 625 RETURN
  84. 630 :
  85. 635 INPUT#1,F,FT$,FT,FS
  86. 640 IFF<>0THENPRINT:PRINT" ";FT$:STOP
  87. 645 RETURN
  88. 650 :
  89. 655 RESTORE
  90. 660 FORI=0TO255
  91. 665 READZ:Z$(I)=CHR$(Z)
  92. 670 NEXTI
  93. 675 READZ:IFZ=-1THEN685
  94. 680 PRINT:PRINT "FEHLER IN DATAS":STOP
  95. 685 FORJ=OTO23
  96. 690 READK(J)
  97. 695 NEXTJ
  98. 700 RETURN
  99. 710 REM DEKODIERTABELLE
  100. 715 DATA32,32,32,32,32,32,32,32,32,32
  101. 720 DATA32,32,32,13,32,32,32,32,32,32
  102. 725 DATA32,32,32,32,32,32,32,32,32,32
  103. 730 DATA32,32,32,33,34,35,36,37,38,39
  104. 735 DATA40,41,42,43,44,45,46,47,48,49
  105. 740 DATA50,51,52,53,54,55,56,57,58,59
  106. 745 DATA60,61,62,63,64,97,98,99,100,101
  107. 750 DATA102,103,104,105,106,107,108,109,110,111
  108. 755 DATA112,113,114,115,116,117,118,119,120,121
  109. 760 DATA122,91,92,93,94,13,96,65,66,67
  110. 765 DATA68,69,70,71,72,73,74,75,76,77
  111. 770 DATA78,79,80,81,82,83,84,85,86,87
  112. 775 DATA88,89,90,123,124,125,126,127,32,32
  113. 780 DATA32,32,32,32,32,32,32,32,32,32
  114. 785 DATA32,32,32,32,32,32,32,32,32,32
  115. 790 DATA32,32,32,32,32,32,32,32,32,32
  116. 795 DATA32,32,32,32,32,32,32,32,32,32
  117. 800 DATA32,32,32,32,32,32,32,32,32,32
  118. 805 DATA32,32,32,32,32, 32, 32,123,124,125
  119. 810 DATA126,32,32,65,66,67,68,69,70,71
  120. 815 DATA72,73,74,75,76,77,78,79,80,81
  121. 820 DATA82,83,84,85,86,87,88,89,90,123
  122. 825 DATA124,125,126,127,32,32,32,32,32,32
  123. 830 DATA32,32,32,32,32,32,32,32,32,32
  124. 835 DATA32,32,32,32,32,32,32,32,32,32
  125. 840 DATA32,91,92,93,126,32,-1
  126. 845 :
  127. 850 REM
  128. 855 DATA24,0,48,1,64,0,144,0,224,0
  129. 860 DATA48,1,48,1,48,1,48,1,48,1
  130. 865 DATA23,9,0,0
  131.